home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro11 / 1mouse.bas next >
Encoding:
BASIC Source File  |  1991-09-01  |  920 b   |  33 lines
  1. 1 '*******************************************************************************
  2. 2'
  3. 3'                         MOUSE PROGRAMING IN BASIC
  4. 4'                                    BY
  5. 5'                                  SKIPPY
  6. 6'
  7. 7'*******************************************************************************
  8. 8 ' USE HIRES SCREEN GRAPHICS
  9. 10 SCREEN 9
  10.  
  11. 15'CLEAR THE SCREEN
  12. 20 CLS
  13.  
  14. 25 'THE FOLLOWING STATMENTS ARE TO FIND WHERE IN MEMORY THE MOUSE DRIVER IS
  15. 30 DEF SEG=0
  16. 40 MOUSEG=256*PEEK(207)+PEEK(206)
  17. 50 MOUSE=256*PEEK(205)+PEEK(204)+2
  18. 60 DEF SEG=MOUSEG
  19.  
  20. 70 'RESET THE MOUSE DRIVER
  21. 80 M1%=0
  22. 90 CALL ABSOLUTE MOUSE(M1%,M2%,M3%,M4%)
  23.  
  24. 100 'TURN THE MOUSE POINTER ON
  25. 110 M1%=1
  26. 120 CALL ABSOLUTE MOUSE(M1%,M2%,M3%,M4%)
  27.  
  28.  
  29. 'THATS IT!! AS YOU CAN SEE THE MOUSE CAN NOW MOVE (FLICKER FREE!!!!)
  30. 'TRY PLAYING WITH THE SCREEN COMMAND AND WATCH THE DIFFERENCE!
  31.  
  32. 'NOW THATS THE BASICS TO BUILD ON!!!
  33.